﻿

Public Class SelectedSettings

    Public filterType As String = ""
    Public filter As AForge.Imaging.Filters.IFilter = Nothing

    Public greyR As Decimal = 0
    Public greyG As Decimal = 0
    Public greyB As Decimal = 0

    Public Sub New()
    End Sub

    Public Sub New(ByVal filterObject As AForge.Imaging.Filters.IFilter, ByVal ditherName As String, ByVal r As Decimal, ByVal g As Decimal, ByVal b As Decimal)
        filterType = ditherName
        filter = filterObject
        greyR = r
        greyG = g
        greyB = b
    End Sub

End Class
